Подсчитать количество шипящих букв в слове- QBasic(Бейсик)

Dim Slovo As String, i As Integer, k As Integer
Slovo = "Щучкин"
Slovo = UCase(Slovo)
k = 0
For i = 1 To Len(Slovo)
    Select Case Mid$(Slovo, i, 1)
        Case "Ж", "Ч", "Ш", "Щ"
            k = k + 1
        Case Else
    End Select
Next i
Print "Число шипящих:"; k
End